supplied-by
: 2constant ( xd "name" -- )  create here 2 cells allot 2!
	does> ( -- xd )  2@ ;
